unit Cad_Bordero;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Formulario_Padrao, Grids, StdCtrls, Buttons, RDprint, ExtCtrls, ComCtrls;

type
  TfrmRel_Bordero = class(Tfrm_padr)
    Label1: TLabel;
    edtbord_numero: TEdit;
    btnC_Bordero: TSpeedButton;
    Label2: TLabel;
    edtmensagem: TMemo;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    edtEnt_Codigo: TEdit;
    btnC_Entidade: TSpeedButton;
    Panel6: TPanel;
    Label6: TLabel;
    edttipd_codigo: TEdit;
    btnC_TipoDocumento: TSpeedButton;
    Panel7: TPanel;
    Label7: TLabel;
    edttitc_numero: TEdit;
    btnC_TitCredito: TSpeedButton;
    Label4: TLabel;
    edtlocal: TEdit;
    GroupBox3: TGroupBox;
    Label16: TLabel;
    Label23: TLabel;
    btnC_Local: TSpeedButton;
    btnC_SubLocal: TSpeedButton;
    edtlocal_codigo: TEdit;
    edtsubl_codigo: TEdit;
    Panel11: TPanel;
    Panel12: TPanel;
    Panel3: TPanel;
    Panel5: TPanel;
    Label5: TLabel;
    edtsub: TEdit;
    Label24: TLabel;
    edttitc_obs: TEdit;
    StringGrid1: TStringGrid;
    procedure edtlocalKeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress2(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmRel_Bordero: TfrmRel_Bordero;

implementation

{$R *.DFM}

procedure TfrmRel_Bordero.edtlocalKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if not (Key in ['0'..'9', Chr(VK_DELETE), Chr(VK_BACK)]) then
    Key := #0;
end;

procedure TfrmRel_Bordero.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if not (Key in ['0'..'9', Chr(VK_DELETE), Chr(VK_BACK)]) then
    Key := #0;
end;

procedure TfrmRel_Bordero.Edit1KeyPress2(Sender: TObject; var Key: Char);
begin
  inherited;
  if not (Key in ['0'..'9', Chr(VK_DELETE), Chr(VK_BACK)]) then
    Key := #0;
end;

end.
